// 神话世界·西游记·版本４．５０
/* <SecCrypt CPL V3R05> */
 
//weiqi...97/12/11

inherit NPC;

string apply_dancer(object me);
string answer_leaving(object me);
int do_yes(string arg);
void do_something();

void create()
{
   set_name("公孙大娘", ({"gongsun daniang", "gongsun", "daniang"}));
   set("age", 32);
   set("gender", "女性");
   set("per", 20);
   set("long", "长安城内稍有名望的，不知道公孙大娘的人恐怕没几个。\n特别是那些文人骚客，跟公孙大娘不熟简直就是没面子。\n");
   set("title", "长安乐坊老板娘");
   set("attitude", "friendly");

   set("combat_exp", 40000);
   set("max_force", 400);
   set("force", 400);
   set("force_factor", 5);
   set_skill("unarmed", 60);
   set_skill("dodge", 90);
   set_skill("moondance", 120);
   set_skill("parry", 60);
   set_skill("literate", 90);
   set_skill("sword", 90);
   set_skill("snowsword", 90);
   map_skill("dodge", "moondance");
   map_skill("sword", "snowsword");

   set("inquiry", ([
     "name" : "嘻嘻...连老娘我公孙大娘你都不知道...\n",
     "here" : "嘿嘿...天下美景不胜数，长安此处最繁华。\n",
     "妓院" : "大胆！此乃天子脚下，竟敢出此伤风败俗之言！\n",
     "妓女" : "大胆！此乃天子脚下，竟敢出此伤风败俗之言！\n",
     "嫖妓" : "大胆！此乃天子脚下，竟敢出此伤风败俗之言！\n",
     "青楼" : "大胆！此乃天子脚下，竟敢出此伤风败俗之言！\n",
     "舞妓" : (: apply_dancer :),
     "舞女" : (: apply_dancer :),
     "歌妓" : (: apply_dancer :),
     "歌女" : (: apply_dancer :),
     "leave" : (: answer_leaving :),
     "离开" : (: answer_leaving :),
   ]) );

   setup();
   carry_object("/d/obj/cloth/skirt")->wear();
   carry_object("/d/obj/cloth/shoes")->wear();
   carry_object("/d/obj/weapon/sword/snow_sword")->wield();
   add_money("silver", 200);
}

void do_something()
{
   command(sprintf("bet %d silver", 1+random(5)));
   call_out ("do_something", 120);   
}

string apply_dancer(object me)
{
   me=this_player();
   if( (string)me->query("gender") == "男性" ) 
   {
     return "这就要看阁下的本事了，我可帮不上多少忙。\n";
   }
   else
   {
     if( (string)me->query("class") == "dancer" )
        return "好好干吧，以后不愁嫁不上好人家。\n";

     if( (int)me->query("age") >= 30 )
        return "岁月不饶人，姑娘还是另寻它路吧。\n";

     message_vision("公孙大娘看了$N一眼叹道：这碗饭可不是容易吃的。\n", me);   
     me->set_temp("dancer_applied", 1);
     return "姑娘果真是下了决心？(yes)\n";
   }
}

string answer_leaving(object me)
{
   me=this_player();
   if( (string)me->query("gender") == "男性" ) 
   {
     return "快滚，滚得远远的！老娘这地方还怕没人来吗？\n";
   }
   else
   {
     if( (string)me->query("class") == "dancer" )
        return "既入此门，大家都知道了，离不离开又有什么分别呢？\n";
     else return "快走吧，这里本来就不是女人玩的地方。\n";
   }
}

void init()
{
   ::init();

   remove_call_out("do_something");
   call_out ("do_something", 120);     

   add_action("do_yes", "yes");
}

int do_yes(string arg)
{
   object me;

   me=this_player();
   
   if(me->query_temp("dancer_applied")) 
   {
     message_vision("$N答道：我都想清楚了！\n\n", me);
     message_vision("公孙大娘拍了拍$N的头道：好好干！只要能碰上好运气，荣华富贵垂手可得！\n", me);
     me->delete_temp("dancer_applied");
     me->set("class", "dancer");
     return 1;
   }

   return 0;
}



